Select Distinct
  Name,
  FinalName
Into Temp
From
  (Select
    Name,
    InStr(4, AudioFileLink.Folder, '\') + 1 As Pos1,
    Mid(AudioFileLink.Folder, Pos1) As Str1,
    InStr(1, Str1, '\') + 1 As Pos2,
    Mid(Str1, Pos2) As Str2,
    InStr(1, Str2, '\') + 1 As Pos3,
    Mid(Str2, Pos3) As Str3,
    InStr(1, Str3, '\') - 1 As Lengte,
    Left(Str3, Lengte) As Artiest,
    InStr(Artiest, ' & ') As PosAmp,
    IIF(PosAmp = 0, Artiest, Left(Artiest, PosAmp - 1)) As Artist1,
    IIF(PosAmp > 0, Mid(Artiest, PosAmp + 3), '') As Artist2,
    InStr(Artist1, ', ') As PosArt1,
    IIF(PosArt1 = 0, Artist1, Mid(Artist1, PosArt1 + 2)) As Name1,
    IIF(PosArt1 > 0, Left(Artist1, PosArt1 - 1), '') As SurName1,
    IIF(PosAmp > 0, Mid(Artiest, PosAmp, 3), '') As Amp,
    InStr(Artist2, ', ') As PosArt2,
    IIF(PosArt2 = 0, Artist2, Mid(Artist2, PosArt2 + 2)) As Name2,
    IIF(PosArt2 > 0, Left(Artist2, PosArt2 - 1), '') As SurName2,
    IIF(PosArt2 > 0, Name1 + ' ' + SurName1 + Amp + Name2 + ' ' + SurName2, Name1 + Amp + Name2 + ' ' + SurName1) As FinalName
  From
    (Select Distinct
      ArtistPerson.Name,
      AudioFileLink.Folder
    From
      (((Album Inner Join
      Track On Album.AlbumID = Track.AlbumID) Inner Join
      AudioFileLink On Track.TrackID = AudioFileLink.TrackID) Inner Join
      ArtistAlbumLink On ArtistAlbumLink.AlbumID = Album.AlbumID) Inner Join
      ArtistPerson On ArtistPerson.ArtistPersonID = ArtistAlbumLink.ArtistPersonID
    Where
      AudioFileLink.Folder Not Like '%\Hits%'))

